object FSzukajKlienta: TFSzukajKlienta
  Left = 213
  Top = 148
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsDialog
  Caption = 'Wybie'#380' kontrahent'#243'w'
  ClientHeight = 420
  ClientWidth = 771
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  Scaled = False
  OnActivate = FormActivate
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object btZaznacz: TSpeedButton
    Left = 544
    Top = 320
    Width = 217
    Height = 25
    Caption = 'Zaznacz wybrane'
    OnClick = btZaznaczClick
  end
  object btAnuluj: TSpeedButton
    Left = 544
    Top = 384
    Width = 217
    Height = 25
    Caption = 'Anuluj'
    OnClick = btAnulujClick
  end
  object Bevel1: TBevel
    Left = 8
    Top = 312
    Width = 753
    Height = 9
    Shape = bsTopLine
  end
  object Label1: TLabel
    Left = 16
    Top = 328
    Width = 117
    Height = 13
    Caption = 'Klienci z sieci handlowej:'
  end
  object Label2: TLabel
    Left = 16
    Top = 360
    Width = 52
    Height = 13
    Caption = 'Typ klienta'
  end
  object RxDBGrid1: TDBGrid
    Left = 8
    Top = 148
    Width = 441
    Height = 137
    Ctl3D = False
    DataSource = DSKlient
    Options = [dgTitles, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    ParentCtl3D = False
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDblClick = btZaznaczClick
    OnKeyPress = RxDBGrid1KeyPress
    Columns = <
      item
        Expanded = False
        FieldName = 'CUSTNMBR'
        Title.Caption = 'ID Klienta'
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'CUSTNAME'
        Title.Caption = 'Nazwa'
        Width = 276
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SALSTERR'
        Title.Caption = 'Region'
        Width = 41
        Visible = True
      end>
  end
  object Edit1: TEdit
    Left = 8
    Top = 283
    Width = 100
    Height = 19
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 1
    OnChange = Edit1Change
  end
  object Edit2: TEdit
    Left = 107
    Top = 283
    Width = 286
    Height = 19
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 2
    OnChange = Edit1Change
  end
  object WiDBText6: TWiDBText
    Left = 8
    Top = 120
    Width = 441
    Height = 19
    DataField = 'FAX'
    DataSource = DSKlient
    LineWidth = 90
    Color = clGray
    TextAlignment = taLeftJustify
    Caption = 'Fax'
    Enabled = True
    LabelFont.Charset = DEFAULT_CHARSET
    LabelFont.Color = clWindowText
    LabelFont.Height = -11
    LabelFont.Name = 'MS Sans Serif'
    LabelFont.Style = []
    LabelHoverFont.Charset = DEFAULT_CHARSET
    LabelHoverFont.Color = clBlue
    LabelHoverFont.Height = -11
    LabelHoverFont.Name = 'MS Sans Serif'
    LabelHoverFont.Style = []
    TextFont.Charset = DEFAULT_CHARSET
    TextFont.Color = clWindowText
    TextFont.Height = -11
    TextFont.Name = 'MS Sans Serif'
    TextFont.Style = []
    LabelShowHint = False
  end
  object WiDBText5: TWiDBText
    Left = 8
    Top = 102
    Width = 441
    Height = 19
    DataField = 'PHONE2'
    DataSource = DSKlient
    LineWidth = 90
    Color = clGray
    TextAlignment = taLeftJustify
    Caption = 'Telefon'
    Enabled = True
    LabelFont.Charset = DEFAULT_CHARSET
    LabelFont.Color = clWindowText
    LabelFont.Height = -11
    LabelFont.Name = 'MS Sans Serif'
    LabelFont.Style = []
    LabelHoverFont.Charset = DEFAULT_CHARSET
    LabelHoverFont.Color = clBlue
    LabelHoverFont.Height = -11
    LabelHoverFont.Name = 'MS Sans Serif'
    LabelHoverFont.Style = []
    TextFont.Charset = DEFAULT_CHARSET
    TextFont.Color = clWindowText
    TextFont.Height = -11
    TextFont.Name = 'MS Sans Serif'
    TextFont.Style = []
    LabelShowHint = False
  end
  object WiDBText4: TWiDBText
    Left = 8
    Top = 84
    Width = 441
    Height = 19
    DataField = 'PHONE1'
    DataSource = DSKlient
    LineWidth = 90
    Color = clGray
    TextAlignment = taLeftJustify
    Caption = 'Telefon'
    Enabled = True
    LabelFont.Charset = DEFAULT_CHARSET
    LabelFont.Color = clWindowText
    LabelFont.Height = -11
    LabelFont.Name = 'MS Sans Serif'
    LabelFont.Style = []
    LabelHoverFont.Charset = DEFAULT_CHARSET
    LabelHoverFont.Color = clBlue
    LabelHoverFont.Height = -11
    LabelHoverFont.Name = 'MS Sans Serif'
    LabelHoverFont.Style = []
    TextFont.Charset = DEFAULT_CHARSET
    TextFont.Color = clWindowText
    TextFont.Height = -11
    TextFont.Name = 'MS Sans Serif'
    TextFont.Style = []
    LabelShowHint = False
  end
  object WiDBText3: TWiDBText
    Left = 8
    Top = 66
    Width = 441
    Height = 19
    DataField = 'CNTCPRSN'
    DataSource = DSKlient
    LineWidth = 90
    Color = clGray
    TextAlignment = taLeftJustify
    Caption = 'Kontakt'
    Enabled = True
    LabelFont.Charset = DEFAULT_CHARSET
    LabelFont.Color = clWindowText
    LabelFont.Height = -11
    LabelFont.Name = 'MS Sans Serif'
    LabelFont.Style = []
    LabelHoverFont.Charset = DEFAULT_CHARSET
    LabelHoverFont.Color = clBlue
    LabelHoverFont.Height = -11
    LabelHoverFont.Name = 'MS Sans Serif'
    LabelHoverFont.Style = []
    TextFont.Charset = DEFAULT_CHARSET
    TextFont.Color = clWindowText
    TextFont.Height = -11
    TextFont.Name = 'MS Sans Serif'
    TextFont.Style = []
    LabelShowHint = False
  end
  object WiDBText2: TWiDBText
    Left = 8
    Top = 48
    Width = 441
    Height = 19
    DataField = 'ADDRESS1'
    DataSource = DSKlient
    LineWidth = 90
    Color = clGray
    TextAlignment = taLeftJustify
    Caption = 'Ulica'
    Enabled = True
    LabelFont.Charset = DEFAULT_CHARSET
    LabelFont.Color = clWindowText
    LabelFont.Height = -11
    LabelFont.Name = 'MS Sans Serif'
    LabelFont.Style = []
    LabelHoverFont.Charset = DEFAULT_CHARSET
    LabelHoverFont.Color = clBlue
    LabelHoverFont.Height = -11
    LabelHoverFont.Name = 'MS Sans Serif'
    LabelHoverFont.Style = []
    TextFont.Charset = DEFAULT_CHARSET
    TextFont.Color = clWindowText
    TextFont.Height = -11
    TextFont.Name = 'MS Sans Serif'
    TextFont.Style = []
    LabelShowHint = False
  end
  object WiDBText1: TWiDBText
    Left = 8
    Top = 30
    Width = 441
    Height = 19
    DataField = 'CITY'
    DataSource = DSKlient
    LineWidth = 90
    Color = clGray
    TextAlignment = taLeftJustify
    Caption = 'Miasto'
    Enabled = True
    LabelFont.Charset = DEFAULT_CHARSET
    LabelFont.Color = clWindowText
    LabelFont.Height = -11
    LabelFont.Name = 'MS Sans Serif'
    LabelFont.Style = []
    LabelHoverFont.Charset = DEFAULT_CHARSET
    LabelHoverFont.Color = clBlue
    LabelHoverFont.Height = -11
    LabelHoverFont.Name = 'MS Sans Serif'
    LabelHoverFont.Style = []
    TextFont.Charset = DEFAULT_CHARSET
    TextFont.Color = clWindowText
    TextFont.Height = -11
    TextFont.Name = 'MS Sans Serif'
    TextFont.Style = []
    LabelShowHint = False
  end
  object WiDBText7: TWiDBText
    Left = 8
    Top = 12
    Width = 441
    Height = 19
    DataField = 'CUSTNAME'
    DataSource = DSKlient
    LineWidth = 90
    Color = clGray
    TextAlignment = taLeftJustify
    Caption = 'Nazwa'
    Enabled = True
    LabelFont.Charset = DEFAULT_CHARSET
    LabelFont.Color = clWindowText
    LabelFont.Height = -11
    LabelFont.Name = 'MS Sans Serif'
    LabelFont.Style = []
    LabelHoverFont.Charset = DEFAULT_CHARSET
    LabelHoverFont.Color = clBlue
    LabelHoverFont.Height = -11
    LabelHoverFont.Name = 'MS Sans Serif'
    LabelHoverFont.Style = []
    TextFont.Charset = DEFAULT_CHARSET
    TextFont.Color = clWindowText
    TextFont.Height = -11
    TextFont.Name = 'MS Sans Serif'
    TextFont.Style = []
    LabelShowHint = False
  end
  object bxKlienci: TListBox
    Left = 544
    Top = 8
    Width = 217
    Height = 297
    Ctl3D = False
    ItemHeight = 13
    ParentCtl3D = False
    Sorted = True
    TabOrder = 10
  end
  object btDodal: TButton
    Left = 472
    Top = 80
    Width = 57
    Height = 25
    Hint = 'Dodaj'
    Caption = '>'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 11
    OnClick = btDodalClick
  end
  object btDodalAll: TButton
    Left = 472
    Top = 112
    Width = 57
    Height = 25
    Hint = 'Dodaj wszystkie'
    Caption = '>>'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 12
    OnClick = btDodalAllClick
  end
  object btUsun: TButton
    Left = 472
    Top = 160
    Width = 57
    Height = 25
    Hint = 'Usu'#324
    Caption = '<'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 13
    OnClick = btUsunClick
  end
  object btUsunAll: TButton
    Left = 472
    Top = 192
    Width = 57
    Height = 25
    Hint = 'Usu'#324' wszystkie'
    Caption = '<<'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 14
    OnClick = btUsunAllClick
  end
  object cbSiec: TComboBox
    Left = 144
    Top = 323
    Width = 201
    Height = 21
    ItemHeight = 13
    Sorted = True
    TabOrder = 15
    OnClick = cbSiecClick
    Items.Strings = (
      'ALSEN'
      'ATONLAND'
      'AUCHAN'
      'LECLERC'
      'MEDIA MARKT'
      'OPEN'
      'PSK'
      'PwB'
      'SATURN'
      'SFERIS'
      'SFK'
      'TPP')
  end
  object Edit3: TEdit
    Left = 392
    Top = 283
    Width = 57
    Height = 19
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 16
    OnChange = Edit1Change
  end
  object btOdznacz: TBitBtn
    Left = 544
    Top = 352
    Width = 217
    Height = 25
    Caption = 'Odznacz wybrane'
    TabOrder = 17
    OnClick = btOdznaczClick
  end
  object cbTypKlienta: TComboBox
    Left = 144
    Top = 355
    Width = 201
    Height = 21
    ItemHeight = 13
    Sorted = True
    TabOrder = 18
    OnClick = cbTypKlientaClick
    Items.Strings = (
      'Biuroserwis'
      'Detalista'
      'Dystrybutor/hurtownia'
      'Hipermarket'
      'Integrator'
      'Producent (sprz'#281't/oprogramowanie)'
      'Redystrybutor'
      'Salon komputerowy (ponad 100 m2)'
      'Sie'#263' sklep'#243'w'
      'Sklep komputerowy (do 100 m2)')
  end
  object QKlient: TADOQuery
    Connection = Conn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT TOP 100 * From RM00101'
      ''
      ''
      ''
      'ORDER BY CUSTNMBR')
    Left = 344
    Top = 216
    object QKlientCUSTNMBR: TStringField
      FieldName = 'CUSTNMBR'
    end
    object QKlientCUSTNAME: TStringField
      FieldName = 'CUSTNAME'
    end
    object QKlientPHONER: TStringField
      FieldName = 'PHONE1'
      OnGetText = QKlientPHONERGetText
    end
    object QKlientFAX: TStringField
      FieldName = 'FAX'
      OnGetText = QKlientPHONERGetText
    end
    object QKlientPHONE2: TStringField
      FieldName = 'PHONE2'
      OnGetText = QKlientPHONERGetText
    end
    object QKlientCNTCPRSN: TStringField
      FieldName = 'CNTCPRSN'
    end
    object QKlientCITY: TStringField
      FieldName = 'CITY'
    end
    object QKlientADDRESS1: TStringField
      FieldName = 'ADDRESS1'
    end
    object QKlientSALSTERR: TStringField
      FieldName = 'SALSTERR'
      FixedChar = True
      Size = 15
    end
  end
  object DSKlient: TDataSource
    DataSet = QKlient
    Left = 288
    Top = 216
  end
  object qTemp: TADOQuery
    Connection = Conn
    Parameters = <>
    Left = 208
    Top = 216
  end
  object Conn: TADOConnection
    LoginPrompt = False
    Left = 128
    Top = 216
  end
end
